﻿Option Strict On
Option Explicit On
Option Infer On

Imports System
Imports GenDotNet.TemplateSupport
Imports GenDotNet.Task.Common
Imports GenDotNet.ObjectModel

Public Class CriteriaEventArgs
   Inherits ObjectEventArgs

   Private mCriteriaData As ICriteriaData

   Public Sub New( _
            ByVal info As BaseInfo, _
            ByVal criteriaData As ICriteriaData)
      MyBase.New(info, criteriaData.ObjectData)
      Me.mCriteriaData = criteriaData
   End Sub

   Public Property CriteriaData() As ICriteriaData
      Get
         Return mCriteriaData
      End Get
      Set(ByVal value As ICriteriaData)
         mCriteriaData = value
      End Set
   End Property
End Class
